Shareware Grab Bag/Shareware Grab Bag.iso/007/function.arc/FUNC4E.INC

Text File | 1985-06-15 | 384 b | 18 lines

{ Find the first matching file                                         }

FUNCTION Func4E (S, O, A : INTEGER) : BOOLEAN;
 BEGIN
  WITH Registers DO
   BEGIN
    AX:=((AX AND $00FF) OR ($4E SHL 8));
    CX:=A;
    DX:=O;
    DS:=S;
    MSDOS (Registers);
    IF (Flags AND $0001)=1 THEN
     Func4E:=TRUE
    ELSE
     Func4E:=FALSE;
   END;
 END;